﻿Public Class FormSeccionesListado

    Private Sub FormSeccionesListado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgSecciones.AutoGenerateColumns = False
        CargarSecciones()
        llenardepositos()
    End Sub
    Dim classController As New Class_RC_Controller.rc_Depositos()

    Private m_frmSecciones As FrmSecciones
    Public Property frmSecciones() As FrmSecciones
        Get
            Return m_frmSecciones
        End Get
        Set(ByVal value As FrmSecciones)
            m_frmSecciones = value
        End Set
    End Property

    Private Sub Cargarsecciones()
        Dim CodDeposito As Integer
        If cbxDeposito.Checked Then
            CodDeposito = cmbDeposito.SelectedValue
        End If
        Dim dt As New DataTable
        dt = classController.get_Secciones_All(oiml.dbConn, 0, txtDescripcion.Text, CodDeposito)
        dgSecciones.DataSource = dt
    End Sub

    Private Sub llenardepositos()
        Dim dsdeposito As New DataTable
        dsdeposito = classController.get_Depositos_All(oiml.dbConn, 0, "")
        If Not dsdeposito Is Nothing Then
            If dsdeposito.Rows.Count > 0 Then
                cmbDeposito.DataSource = dsdeposito
                cmbDeposito.DisplayMember = "descripcionDep"
                cmbDeposito.ValueMember = "codDeposito"
            End If
        End If
    End Sub


    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub


    Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click
        Try
            If dgSecciones.SelectedRows.Count > 0 Then
                Dim CodSeccion As New Integer
                CodSeccion = dgSecciones.SelectedRows(0).Cells(0).Value

                If frmSecciones Is Nothing Then
                    frmSecciones = New FrmSecciones
                    frmSecciones.codSeccion = CodSeccion
                    frmSecciones.ShowDialog()
                    Cargarsecciones()
                    frmSecciones.Dispose()
                    frmSecciones = Nothing
                Else
                    frmSecciones.codSeccion = CodSeccion
                    frmSecciones.ShowDialog()
                End If
            End If
        Catch ex As Exception
            MessageBox.Show("Error: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Private Sub txtBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBuscar.Click
        Cargarsecciones()
    End Sub
    Private Sub txtDescripcion_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtDescripcion.KeyDown
        If e.KeyCode = Keys.Enter Then
            Cargarsecciones()
        End If
    End Sub

    Private Sub dgSecciones_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgSecciones.DoubleClick
        btnEditar_Click(sender, e)
    End Sub

    Private Sub dgSecciones_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles dgSecciones.KeyDown
        If e.KeyCode = Keys.Enter Then
            btnEditar_Click(sender, e)
        End If
    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        '    If frmciudad Is Nothing Then
        frmSecciones = New FrmSecciones()
        frmSecciones.ShowDialog()
        Cargarsecciones()
    End Sub
End Class